home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / SOUNDER.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  484b  |  20 lines
  1. ' SOUNDER.BAS
  2. ' This program plays a note based on frequency and duration values
  3. '   entered by the user.
  4.  
  5. CLS
  6.  
  7. PRINT "Enter frequency and duration values for the sound you want"
  8. PRINT "to hear.  To quit, enter -999 for frequency."
  9. PRINT
  10.  
  11. DO
  12.     INPUT "Frequency (37-32767):  ", frequency%
  13.     IF (frequency% <> -999) THEN
  14.         INPUT "Duration (0-65535):  ", duration&
  15.         SOUND frequency%, duration&
  16.         PRINT
  17.     END IF
  18. LOOP UNTIL (frequency% = -999)
  19.  
  20.